.onAttach <- function(libname, pkgname)  {
    Sys.setlocale("LC_TIME", "C")
    options(digits = 15)
}
